perm filename PRNTIM.FAI[1,BGB] blob sn#069847 filedate 1974-06-15 generic text, type T, neo UTF8
COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	TITLE PRNTIM
 00004 ENDMK
⊗;
TITLE PRNTIM
	OPDEF GO[JRST]
SA:	SETZ 1,
L1:	MOVEI 2,=64↔MSTIME↔MOVEM TIMES(1)↔AOS 1
L2:	SOJGE 2,L2
	CAIE 1,=64↔GO L1
	SETZ 10,
L3:	MOVE TIMES(10)↔AOS 10
	MOVE 2,[POINT 7,3,-1]
	IDIV[=36000000]↔IORI 60↔IDPB 2↔MOVE 1	;TENS OF HOURS.
	IDIV[=3600000 ]↔IORI 60↔IDPB 2↔MOVE 1	;ONES OF HOURS.
	MOVEI 1,":"↔IDPB 1,2			;COLON
	IDIV[=600000]↔IORI 60↔IDPB 2↔MOVE 1	;TENS OF MINUTES.
	IDIV[=60000 ]↔IORI 60↔IDPB 2↔MOVE 1	;ONES OF MINUTES.
	MOVEI 1,":"↔IDPB 1,2			;COLON
	IDIVI =10000↔IORI 60↔IDPB 2↔MOVE 1	;TENS OF SECONDS.
	IDIVI =1000↔ IORI 60↔IDPB 2↔MOVE 1	;ONES OF SECONDS.
	MOVEI 1,"."↔IDPB 1,2			;DECIMAL
	IDIVI =100↔IORI 60↔IDPB 2↔MOVE 1	;HUNDS OF MILLISEC. 
	IDIVI =10 ↔IORI 60↔IDPB 2↔MOVE 1	;TENS  OF MILLISEC. 
	MOVEI 15↔IDPB 2
	MOVEI 12↔IDPB 2
	MOVEI 00↔IDPB 2
	OUTSTR 3
	CAIE 10,=64↔GO L3
	INCHRW
	JRST SA
TIMES:	BLOCK =64
END SA